home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_chktex.idb / usr / freeware / doc / chktex / MakeHTML.z / MakeHTML
Text File  |  2001-01-10  |  211b  |  21 lines
  1. #! /bin/perl5
  2.  
  3. $latexonly = 0;
  4.  
  5. while(<>)
  6. {
  7.     $latexonly = 1 if /^%latex/i;
  8.     $latexonly = 0 if /^%endlatex/i;
  9.     
  10.  
  11.     if($latexonly) {
  12.     if(/^%!(.*)/)
  13.     {
  14.         print $1;
  15.     }
  16.     }
  17.     else {
  18.     print;
  19.     }
  20. }
  21.